00100		TITLE FILBRK
00300		ENTRY	FILBRK
00700	
13800	
14000	
14200		EXTERN	DEV
14300		INTERN	FNAM,DLK,ASTR
14400	
14500		WD←7
14600	
14700	ASTR:	ASCIZ/
14800	*/
14900	ZERSUB:	0
15000		MOVE	PT2
15100		MOVEM	PT
15200		SETZB	1,WD
15300		JRST	@ZERSUB
15400	
15500	COMSUB:	CAIN	15
15600		JRST	[MOVEI	10,EOJ
15700		JRST	(16)]
15800		CAIN	"["
15900		JRST	[MOVEI	10,GTPROJ
16000		JRST	(16)]
16100		CAIE	"."
16200		JRST	2(16)
16300		MOVEI	10,GTEXT
16400		JRST	(16)
16500	
16600	FSUB:	JSP	16,COMSUB
16700		MOVEM	WD,FNAM
16800		JRST	(10)
16900		CAIL	1,6
17000		JRST	.+3
17100		SUBI	40
17200		IDPB	PT
17300		AOJA	1,(15)
17400	
17500	ACS:	BLOCK	20
17600	
17700	FNAM:DLK:	0
17800	EXT:	0
17900		0
18000	PPN:	0
18100	PT:	POINT	6,WD
18200	PT2:	POINT	6,WD
18300	
18400	FILBRK:	0
18500		MOVEM	17,ACS+17
18600		MOVEI	17,ACS
18700		BLT	17,ACS+16
18800	ST:	MOVSI	'DSK'
18900		MOVEM	DEV
19000		SETZB	FNAM
19100		MOVEM	FNAM+1
19200		MOVEM	FNAM+2
19300		MOVEM	FNAM+3
19400		OUTSTR	ASTR
19500	GTDEV:	JSR	ZERSUB
19600		MOVEI	15,.+1
19700		INCHWL
19800		CAIE	":"
19900		JRST	FSUB
20000		MOVEM	WD,DEV
20100	GTFNAM:	JSR	ZERSUB
20200		MOVEI	15,.+1
20300		INCHWL
20400		JRST	FSUB
20500	GTEXT:	JSR	ZERSUB
20600		INCHWL
20700		JSP	16,COMSUB
20800		MOVEM	WD,EXT
20900		JRST	(10)
21000		CAIL	1,3
21100		JRST	.+3
21200		SUBI	40
21300		IDPB	PT
21400		AOJA	1,GTEXT+1
21500	
21600	GTPROJ:	SETZB	1,2
21700		INCHWL
21800		CAIN	","
21900		JRST	GTPROG
22000		SUBI	60
22100		CAILE	7
22200		JRST	ERR
22300		ASH	2,3
22400		JOV	ERR
22500		HRLZS
22600		ADD	2,
22700		JOV	ERR
22800		JRST	GTPROJ+1
22900	
23000	GTPROG:	INCHWL
23100		CAIE	15
23200		CAIN	"]"
23300		JRST	COMBIN
23400		SUBI	60
23500		CAILE	7
23600		JRST	ERR
23700		ASH	1,3
23800		JOV	ERR
23900		HRLZS
24000		ADD	1,
24100		JOV	ERR
24200		JRST	GTPROG
24300	COMBIN:	HLR	2,1
24400		MOVEM	2,PPN
24500	EOJ:	CLRBFI
24600		MOVSI	17,ACS
24700		BLT	17,16
24800		MOVE	17,ACS+17
24900		JRA	16,(16)
25000	ERR:	CLRBFI
25100		OUTSTR	[ASCIZ/?IMPROPER SYNTAX?
25200	/]
25300		JRST	ST
25400		END